www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\index.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class.asp"-->
<!--#include file="Include/header.asp"-->
<script type="text/javascript">
function killErrors() {
    return true;
}
window.onerror = killErrors;

</script>
<%
	Dim Default
	set Default = New Cls_Default
	if request.QueryString("action") = "logout" then	'退出登陆
		Session("_WUserID") = ""
		Session("_UserCoolName") = ""
		Response.Redirect("index.asp")		
	elseif request.QueryString("action") = "Hit" then	'顶	
		Call WoDig.Set_Hit(Request("Src_ID"))
		Response.end
	end if	
	Src_Child	= Request("Src_Child")	'二级类别
	Src_Tags	= Request("Tags")		'标签
	S_Havving 	= Request("S_Havving")	'搜索条件
	page 		= Request("page")		'分页
	order_by	= Request("order_by")	'排序
	tags_name   = Request("tags_name")	'标签
	tags_ID     = Request("tags_ID")	'标签ID
	if Src_Child = "" or Src_Child = "-1" then
		Src_Child = -1
	end if
	if Order_By = "" or isNull(Order_By) or isNumeric(Order_By)=false then		
		Order_By = "1"
	end if	
	if page = "" then
		page = 1
	end if	
	if isNumeric(Src_Child)=false or isNumeric(page)=false then
		Response.Redirect("index.asp")	'防注入
	end if
	if tags_ID<>"" and isnumeric(tags_ID)=false  then
	Response.Redirect("index.asp")	'防注入
	end If

	Call Default.Get_Search()
	Response.Write("</div>"&vbcr)
Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div><div id=""mainWrapper"" class=""clear"">"&vbcr)
Response.Write("<div class=""main"">"&vbcr)
Response.Write("<div class=""navArr""></div>"&vbcr)
Response.Write("<div class=""AL"">"&vbcr)
Response.Write("<div class=""title""><h3>良精微博-随时随地分享身边的新鲜事儿</h3>"&vbcr)
Response.Write("<div class=""orderType"">"&vbcr)
	Call Default.Get_OrderBy()
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""newsBox"" id=""talkNew""></div>"&vbcr)

%>
<style>
#talkList p{
	clear:both;
	margin:0;
	padding:.5em 0;
}
#talkList pre{
	display:block;
	font:100% "Courier New", Courier, monospace;
	padding:10px;
	border:1px solid #bae2f0;
	background:#e3f4f9;	
	margin:.5em 0;
	overflow:auto;
	width:800px;
}

#talkList img{border:none;}
#talkList ul,li{
	margin:0;
	padding:0;
}
#talkList li{
	list-style:none;
	float:left;
	display:inline;
	margin-right:10px;
}



/*  */
 #preview{
	position:absolute;
	border:1px solid #ccc;
	background:#ffffff;
	padding:5px;
	display:none;
	color:#fff;
	}

/*  */
</style>
<script type="text/javascript" src="http://ad.liangjing.org/JsAd/home/ad-new.js "></script>
<%
Response.Write("<ul id=""talkList"" class=""LC"">"&vbcr)
Response.Write("<script src=""js/jquery.js"" type=""text/javascript""></script>"&vbcr)
Response.Write("<script src=""js/main.js"" type=""text/javascript""></script>"&vbcr)
Call  Default.Get_MainContent()	
Response.Write("</ul>"&vbcr)
Response.Write("</div>"&vbcr)
Call  Default.Get_PageList()
Response.Write("<div class=""moreFoot"" id=""moreList""><a href=""javascript:void(0)""></a><a href=""#"" class=""goTop"">返回顶部↑</a></div>"&vbcr)		
Response.Write("</div>"&vbcr)
Response.Write("<div class=""side"">"&vbcr)

Response.Write("<div id=""UI"">"&vbcr)
Response.Write("<script type=""text/javascript"" src=""js/weiboid.js""></script>"&vbcr)
if Trim(Session("_WUserID")) = "" then	

Response.Write("<div class=""userDetail"">"&vbcr)
Response.Write("<a href=""http://www.liangjing.org"" title=""良精科技""><img src=""images/liangjingweibo.gif""/></a>"&vbcr)
Response.Write("<p><strong>如果你登录了就可以<br />出现在这里哦！</strong></p>"&vbcr)
Response.Write("</div>"&vbcr)
Else 

set rs = server.createobject("adodb.recordset")
sql="select * from Liangjing_User where User_ID="&Session("_WUserID")
rs.open sql,conn,1,1
if rs.eof then
Response.Write("<div class=""userDetail"">"&vbcr)
Response.Write("用户登录有错！"&vbcr)
Response.Write("</div>"&vbcr)
Else 
Response.Write("<div class=""userDetail"">"&vbcr)
if Rs("User_Sex") = true then
User_Sex = "男"
else
User_Sex = "女"
end If

%>
	<TABLE cellSpacing=0 cellPadding=2 width="95%" align=center border=0>
        <TR>
          <TD vAlign=top>
		  
		  	<table width="100%" border="0" cellspacing="1" cellpadding="0">
			  <tr>
				<td colspan="2"><span class="mn">
				<%=rs("user_CoolName")%>的名片：</span></td>
			  </tr>
			  <tr>
				<td>
				<table>
					<tr>
						<td>
							<table  border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
							  <tr>
								<td bgcolor="#FFFFFF"><img src="<% =rs("user_photo")%>" align="left" width="60" height="60"/></td>
							  </tr>
 						    </table>
						</td>
						<td>
						名号：<%=rs("User_CoolName")%><br />
						性别：<%=User_Sex%><br />
						来自：<%=rs("User_Address")%><br />
					    邮件：保密
						</td>
					</tr>
				</table>
				
				</td>
			  </tr>
			  <tr>
				<td colspan="2"></td>
			  </tr>
			  <tr>
				<td colspan="2">自我介绍：<br>
					<%
						if rs("User_Demo") <> ""then
							Response.Write(WoDig.get_StrLen(Server.HTMLEncode(rs("User_Demo")),200))
						end if
					%>
				</td>
			  </tr>
			  <tr>
				<td colspan="2">加入时间：<%=rs("User_SignInDate")%> </td>
			  </tr>
			    <tr>
				<td colspan="2">连接网站：<a href="
				<%
				If instr(rs("User_HomeWeb"),"http://")>0 Then 
				Response.Write rs("User_HomeWeb")
				Else 
				Response.Write "http://"&rs("User_HomeWeb")
				End If 
				%>">点击此处进入</a>
				</td>
			  </tr>
			</table>
		  </TD>
        </TR>
      
    </TABLE>
<%
Response.Write("</div>"&vbcr)

End If 
End If 
Response.Write("</div>"&vbcr)
If Trim(Session("_WUserID"))="" Or Trim(Session("_WUserID"))=Null Then 
Else 
Response.Write("<div class=""SC""><ul class=""SM"">"&vbcr)
Response.Write("<li class=""index current"" id=""x1""><a hideFocus=""true"" href=""index.asp"">我的主页</a></li>"&vbcr)
Response.Write("</ul></div>"&vbcr)
End If 

Response.Write("<div class=""SC fold"">"&vbcr)
Response.Write("<h3>网站公告<a href=""#"" title=""展开"" class=""btn"" onclick=""listcolseabout()""></a></h3>"&vbcr)
Response.Write("<ul class=""imgList""  style=""display:block"" id=""followAjaxs"">"&vbcr)
	Call Default.Get_Msg 
Response.Write("</ul>"&vbcr)

Response.Write("</div>"&vbcr)

Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='images/icons/23.gif' width='16' height='16' />&nbsp;微博信息分类</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_SysTags 
Response.Write("</ul></div>"&vbcr)

Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/icons/icon_edit.gif' width='16' height='16' />"&Web_UserCName&"点评<a href=""#"" class=""btn"" title=""收起"" onclick=""javascript:listcolse()"">&nbsp;</a></h3>"&vbcr)
Response.Write("<ul id=""hotTopics"" style=""display:block"" class=""hotTopicList"">"&vbcr)
	Call Default.Get_Revert 
Response.Write("</ul>"&vbcr)
Response.Write("<div class=""more""><a href='isay.asp'>更多精彩点评&gt;&gt;&gt;</a></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<div style=""margin-left:12px;""><img src='Images/ico_blog.gif' width='16' height='16' /><font style=""font-size:14px;font-weight:bold;"">博友自定义标签</font>&nbsp;<a href='tags.asp'>更多标签>></a></div>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_UserTags	
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/ico_blog.gif' width='16' height='16' />分享最多的博友</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_TopUser 
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/ico_blog.gif' width='16' height='16' />最新加入良精微博网好友</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_NewUser 
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call WoDig.Get_Rss
Response.Write("</ul></div>"&vbcr)

Response.Write("<div class=""SC"" style=""padding-top:6px;"">"&vbcr)
Response.Write("<div style=""font-size:14px;font-weight:bold;margin-left:12px;""><img src='Images/ico_blog.gif' width='16' height='16' />友情连接</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""mobileBox"">"&vbcr)
Response.Write("<ul>"&vbcr)
Call Default.Get_Link 	
Response.Write("</ul>"&vbcr)
Response.Write("<div style=""clear:both;height:1px;""></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""proposal""><a href=""MessageList.Asp"">留言反馈</a>&nbsp;|&nbsp;<a href=""http://www.liangjing.org"">技术支持</a></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)
Set Default = Nothing
%>
<!--#include file="Include/footer.asp"-->